Sub PoprawTabele()
'Usuwa wszystkie scalone komrki i zawinity tekst z wklejanej tabeli oraz usuwa puste wiersze

   With Selection
   .WrapText = False
   .MergeCells = False
   End With

Dim Rw As Range
   With Application
   .Calculation = xlCalculationManual
   .ScreenUpdating = False

   Selection.SpecialCells(xlCellTypeBlanks).Select

   For Each Rw In Selection.Rows
   If WorksheetFunction.CountA(Selection.EntireRow) = 0 Then
   Selection.EntireRow.Delete
   End If
   Next Rw

   .Calculation = xlCalculationAutomatic
   .ScreenUpdating = True
   End With
End Sub
